home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / telecom / 46 / pascal / peektest.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-08-15  |  269 b   |  16 lines
  1. PROGRAM peekpoke_test;
  2.  
  3.   VAR
  4.     ssp: long_integer;
  5.  
  6.   {$I peekpoke.pas}
  7.  
  8.   FUNCTION super( sp: long_integer ): long_integer;
  9.     GEMDOS( $20 );
  10.  
  11.   BEGIN
  12.     ssp := super(0);
  13.     writeln( 'peek of $4ba is ', lpeek($4ba) );
  14.     ssp := super(ssp);
  15.   END.
  16.